;
(deftemplate przedmiot
	(slot posiadacz)
	(slot typ)
	(slot w_uzyciu (allowed-values tak nie) (default nie))
)

;
(deffacts pieszy2
	(osoba
		(nazwa pieszy2)
		(koszt 0)
		(szybkosc 10)
		(bezpieczenstwo 70)
		(wygoda 40)
		(pojazd_mechaniczny nie)
		(rodzaj_pojazdu brak)
	)
)

;
(deffacts przedmiot2
	(przedmiot
		(posiadacz pieszy2)
		(typ noz)
	)
)

;
(defrule wplyw_przedmiotow
	?o <- (osoba (nazwa ?na)(bezpieczenstwo ?be)(wygoda ?wy)(rodzaj_pojazdu brak))
	(pora_dnia (czas noc))
	?p <- (przedmiot (posiadacz ?na)(typ ?ty)(w_uzyciu nie))
	=>
	(if (= (str-compare ?ty noz) 0)
		then
		(modify ?o(bezpieczenstwo (+ ?be 15)))
    (modify ?p(w_uzyciu tak))
		(printout t ?na " ma noz, czuje sie bezpiecznie nawet w nocy." crlf)
	)
)